﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class Productos1Fact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As Productos1BE
        Dim tmpProductos1 As Productos1BE = New Productos1BE()
        Try
            With tmpProductos1
                .Aplicacion = convertDTFromDb.ConvertString(dr.Item("Aplicacion"))
                .ClaFamilia = convertDTFromDb.ConvertString(dr.Item("ClaFamilia"))
                .ClaProducto = convertDTFromDb.ConvertString(dr.Item("ClaProducto"))
                .ClaTipo = convertDTFromDb.ConvertString(dr.Item("ClaTipo"))
                .ClaUniMed = convertDTFromDb.ConvertString(dr.Item("ClaUniMed"))
                .ClaUniMed2 = convertDTFromDb.ConvertString(dr.Item("ClaUniMed2"))
                .CodBar = convertDTFromDb.ConvertString(dr.Item("CodBar"))
                .Comentarios = convertDTFromDb.ConvertString(dr.Item("Comentarios"))
                .Costo = convertDTFromDb.ConvertDecimal(dr.Item("Costo"))
                .CostoUlt = convertDTFromDb.ConvertDecimal(dr.Item("CostoUlt"))
                .CveNeodata = convertDTFromDb.ConvertString(dr.Item("CveNeodata"))
                .CveOpus = convertDTFromDb.ConvertString(dr.Item("CveOpus"))
                .CveProv1 = convertDTFromDb.ConvertString(dr.Item("CveProv1"))
                .CveProv2 = convertDTFromDb.ConvertString(dr.Item("CveProv2"))
                .DesProducto = convertDTFromDb.ConvertString(dr.Item("DesProducto"))
                .Existencia = convertDTFromDb.ConvertDecimal(dr.Item("Existencia"))
                .FacConver = convertDTFromDb.ConvertDecimal(dr.Item("FacConver"))
                .FecUltCom = convertDTFromDb.convertDateTime(dr.Item("FecUltCom"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .IdIva = convertDTFromDb.convertInt32(dr.Item("IdIva"))
                .IEPS = convertDTFromDb.convertInt32(dr.Item("IEPS"))
                .Imagen = convertDTFromDb.ConvertString(dr.Item("Imagen"))
                .ImpIEPS = convertDTFromDb.ConvertDecimal(dr.Item("ImpIEPS"))
                .NumReferencia = convertDTFromDb.ConvertString(dr.Item("NumReferencia"))
                .NumSerie = convertDTFromDb.ConvertString(dr.Item("NumSerie"))
                .NvaCve = convertDTFromDb.ConvertString(dr.Item("NvaCve"))
                .Precio1 = convertDTFromDb.ConvertDecimal(dr.Item("Precio1"))
                .Precio2 = convertDTFromDb.ConvertDecimal(dr.Item("Precio2"))
                .Precio3 = convertDTFromDb.ConvertDecimal(dr.Item("Precio3"))
                .Precio4 = convertDTFromDb.ConvertDecimal(dr.Item("Precio4"))
                .Precio5 = convertDTFromDb.ConvertDecimal(dr.Item("Precio5"))
                .ProdImpor = convertDTFromDb.convertInt32(dr.Item("ProdImpor"))
                .ProdServ = convertDTFromDb.ConvertString(dr.Item("ProdServ"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .StockMax = convertDTFromDb.ConvertDecimal(dr.Item("StockMax"))
                .StockMin = convertDTFromDb.ConvertDecimal(dr.Item("StockMin"))
                .Ubicacion = convertDTFromDb.ConvertString(dr.Item("Ubicacion"))
            End With
            Return tmpProductos1
        Catch ex As Exception
            Throw
        Finally
            tmpProductos1 = Nothing
        End Try
    End Function
End Class
